﻿Public Class LandschaftstexturPLineKaputt
    Inherits ObjektLandschaftsTextur



    Public Sub New()
        ID = "PLINEKAPUTT"
        Landschaftsname = "Schnee"
        Deckung = 1
        Tarnung = False
        KP = -1
        TexturenLaden(New String() {"PLineKaputt+N+S", "PLineKaputt+O+W"})
        Normal = -1
        Ausrichtungslandschaften = New String() {"PIPELINE", "PLINE", "PIPE", "PIPESTATION", "FABRIK"}
        ÜbergängeLaden("Schnee")
    End Sub

    Public Overrides Function DrawSpecialStyle(ByVal BildID As Integer, ByVal Fog As Nebelarten, ByVal Alpha As Integer, ByVal X As Integer, ByVal Y As Integer) As Boolean
        Select Case My.Settings.TerrainStyle
            Case TerrainStyle.CommanderWars2, TerrainStyle.AdvanceWarsDC
                Return DrawSchneeUndTerrain(Alpha, Fog, BildID, X, Y, False)
            Case Else
                Return False
        End Select
    End Function

    Public Overrides Sub Malen3D(ByVal p_MatCube As Microsoft.DirectX.Matrix, ByVal Landschaft As ObjektLandschaft)

    End Sub

    Public Overrides Sub Ini3D()

    End Sub

    Public Overrides Sub Tick()

    End Sub
End Class
